use LWP::Simple;
use Encode;

$url='http://david.samsiu.hk/weather/storminfo/detail.php?name=BOLAVEN';
$doc = get $url;
$doc=encode('gbk',$doc);
#$doc=~s/html/body/g;
$doc=~s/\<\/textarea.+html\>//gs;
$doc=~s/^.+\>//gs;


print($doc);


print "\n----------------------\n";


$doc=~s/(\s\d{1,4}\.\d{1,4})N\s+(\s\d{1,4}\.\d{1,4})E/$2;$1/g;

print($doc);


